UnitlmdextcS
Declaration
TLMDOwnerDrawPanel = procedure (Sender : TObject;Nr : Integer;aRect : TRect;Canvas : TCanvas) of object;